#! /usr/bin/perl

use strict;
use diagnostics;
use DBI;

my %config = (
	'host' => 'gemini',
	'user' => 'pandoradb',
	'pass' => 'pandoradb',
	'sid'  => 'hndb',
	'port' => 1521,
);

my $dbh = pandoraDbConnect( \%config );


$dbh->last_insert_id( undef, undef, $table, $field );